home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tegl6b.zip
/
INTROPAK.EXE
/
lha
/
AUTOROT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-05
|
505b
|
31 lines
{-- Program to illustrate auto rotation of frames by using setautorotate. }
{-- Whichever frame is clicked on will move to the top. }
Uses
TEGLIntr,
TEGLUnit,
TEGLMain;
VAR fs : ImageStkPtr;
BEGIN
EasyTEGL;
EasyOut;
{-- create the first frame }
PushImage(1,1,100,100);
ShadowBox(1,1,100,100);
{-- then create the second frame }
PushImage(50,50,150,150);
ShadowBox(50,50,150,150);
SetAutoRotate(True);
TEGLSupervisor;
END.